object DemoForm: TDemoForm Left = 187 Top = 112 Width = 453 Height = 340 Caption = 'Toolbar97 Demo' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Menu = MainMenu OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object TopDock: TDock97 Left = 0 Top = 0 Width = 445 Height = 79 BoundLines = [blTop] PopupMenu = ToolbarPopupMenu object EditToolbar: TToolbar97 Left = 0 Top = 26 Caption = 'Edit' DefaultDock = TopDock DockPos = 0 DockRow = 1 ParentShowHint = False PopupMenu = ToolbarPopupMenu ShowHint = True TabOrder = 1 object FontButton: TToolbarButton97 Left = 133 Top = 0 Width = 23 Height = 22 Hint = 'Font' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777444477744444477778477777844 8777777447777844777777784777744877777777444444477777777784774487 7777777774474477777777777844487777777777774447777777777777848777 7777777777747777777777777777777777777777777777777777} OnClick = FontButtonClick end object EditSep1: TToolbarSep97 Left = 156 Top = 0 end object LeftButton: TToolbarButton97 Left = 162 Top = 0 Width = 23 Height = 22 Hint = 'Align Left' GroupIndex = 1 Down = True Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 8888888888888888888888888888888888880000000000000088888888888888 8888000000000088888888888888888888880000000000000088888888888888 8888000000000088888888888888888888880000000000000088888888888888 8888000000000088888888888888888888888888888888888888} end object CenterButton: TToolbarButton97 Left = 185 Top = 0 Width = 23 Height = 22 Hint = 'Align Center' GroupIndex = 1 Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 8888888888888888888888888888888888888800000000008888888888888888 8888000000000000008888888888888888888800000000008888888888888888 8888000000000000008888888888888888888800000000008888888888888888 8888000000000000008888888888888888888888888888888888} end object RightButton: TToolbarButton97 Left = 208 Top = 0 Width = 23 Height = 22 Hint = 'Align Right' GroupIndex = 1 Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 8888888888888888888888888888888888888888000000000088888888888888 8888000000000000008888888888888888888888000000000088888888888888 8888000000000000008888888888888888888888000000000088888888888888 8888000000000000008888888888888888888888888888888888} end object FontCombo: TComboBox Left = 0 Top = 0 Width = 133 Height = 21 Hint = 'Font' ItemHeight = 13 Items.Strings = ( 'a font list could go here...') TabOrder = 0 Text = 'Arial' end end object SampleToolbar: TToolbar97 Left = 0 Top = 52 Caption = 'Sample' DockPos = 0 DockRow = 2 ParentShowHint = False PopupMenu = ToolbarPopupMenu ShowHint = True TabOrder = 2 object SampleSep1: TToolbarSep97 Left = 108 Top = 0 end object DropdownButton: TToolbarButton97 Left = 114 Top = 0 Width = 68 Height = 22 DropdownMenu = DropPopupMenu Caption = 'Dropdown' end object SampleSep2: TToolbarSep97 Left = 182 Top = 0 end object ToolWinButton: TToolbarButton97 Left = 188 Top = 0 Width = 110 Height = 22 AllowAllUp = True GroupIndex = 2 Caption = 'Tool Window Sample' OnClick = ToolWinButtonClick end object SampleEdit1: TEdit97 Left = 0 Top = 1 Width = 54 Height = 19 TabOrder = 0 Text = 'TEdit97' end object SampleEdit2: TEdit97 Left = 54 Top = 1 Width = 54 Height = 19 TabOrder = 1 Text = 'sample' end end object MainToolbar: TToolbar97 Left = 0 Top = 0 Caption = 'Main' DefaultDock = TopDock DockPos = 0 ParentShowHint = False PopupMenu = ToolbarPopupMenu ShowHint = True TabOrder = 0 object NewButton: TToolbarButton97 Left = 0 Top = 0 Width = 23 Height = 22 Hint = 'New' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 888888888888888888888800000000000888880FFFFFFFFF0888880FFFFFFFFF 0888880FFFFFFFFF0888880FFFFFFFFF0888880FFFFFFFFF0888880FFFFFFFFF 0888880FFFFFFFFF0888880FFFFFFFFF0888880FFFFFF0000888880FFFFFF0F0 8888880FFFFFF008888888000000008888888888888888888888} end object OpenButton: TToolbarButton97 Left = 23 Top = 0 Width = 23 Height = 22 Hint = 'Open' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 77777777777777777777000000000007777700333333333077770B0333333333 07770FB03333333330770BFB0333333333070FBFB000000000000BFBFBFBFB07 77770FBFBFBFBF0777770BFB0000000777777000777777770007777777777777 7007777777770777070777777777700077777777777777777777} end object SaveButton: TToolbarButton97 Left = 46 Top = 0 Width = 23 Height = 22 Hint = 'Save' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222 2222220000000000000220330000008803022033000000880302203300000088 0302203300000000030220333333333333022033000000003302203088888888 0302203088888888030220308888888803022030888888880302203088888888 0002203088888888080220000000000000022222222222222222} end object MainSep1: TToolbarSep97 Left = 69 Top = 0 end object PrintButton: TToolbarButton97 Left = 75 Top = 0 Width = 23 Height = 22 Hint = 'Print' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222 22222200000000000222208888888880802200000000000008020888888BBB88 0002088888877788080200000000000008800888888888808080200000000008 0800220FFFFFFFF080802220F00000F000022220FFFFFFFF022222220F00000F 022222220FFFFFFFF02222222000000000222222222222222222} end object PrintPreviewButton: TToolbarButton97 Left = 98 Top = 0 Width = 23 Height = 22 Hint = 'Print Preview' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222 222200000000000022000FFFFFFFFFF020000FFFFFFF000080020FFFFFF08778 08220FFFFF0877E880220FFFFF07777870220FFFFF07E77870220FFFFF08EE78 80220FFFFFF0877802220FFFFFFF000022220FFFFFFFFFF022220FFFFFFF0000 22220FFFFFFF070222220FFFFFFF002222220000000002222222} end object MainSep2: TToolbarSep97 Left = 121 Top = 0 end object CutButton: TToolbarButton97 Left = 127 Top = 0 Width = 23 Height = 22 Hint = 'Cut' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 8888888844888888888888848848844888888884884848848888888488484884 8888888844484884888888888848444888888888884048888888888888808888 8888888888000888888888888808088888888888800800888888888880888088 8888888880888088888888888088808888888888888888888888} end object CopyButton: TToolbarButton97 Left = 150 Top = 0 Width = 23 Height = 22 Hint = 'Copy' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 8888888888888888888888888844444444488888884FFFFFFF488888884F0000 0F480000004FFFFFFF480FFFFF4F00000F480F00004FFFFFFF480FFFFF4F00F4 44480F00004FFFF4F4880FFFFF4FFFF448880F00F044444488880FFFF0F08888 88880FFFF0088888888800000088888888888888888888888888} end object PasteButton: TToolbarButton97 Left = 173 Top = 0 Width = 23 Height = 22 Hint = 'Paste' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00222222222222 222222222244444444442000004FFFFFFFF40737374F444444F40373734FFFFF FFF40737374F444F44440373734FFFFF4F420737374FFFFF4422037373444444 402207373737373730220370000000077022077088888807302203730B00B073 7022200000BB0000022222222000022222222222222222222222} end object MainSep3: TToolbarSep97 Left = 196 Top = 0 end object UndoButton: TToolbarButton97 Left = 202 Top = 0 Width = 34 Height = 22 Hint = 'Undo' DropdownCombo = True DropdownMenu = DropPopupMenu Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 7777777777777777777777777777777777777777777777777777777777777777 7777777777777778477777444447777748777744447777777477774447777777 7477774474777777747777477748777748777777777844448777777777777777 7777777777777777777777777777777777777777777777777777} end object RedoButton: TToolbarButton97 Left = 236 Top = 0 Width = 34 Height = 22 Hint = 'Redo' DropdownCombo = True DropdownMenu = DropPopupMenu Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000010000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888 8888888888888888888888888888888888888888888888888888888888888888 8888888478888888888888748888844444888848888888444488884888888884 4488884888888848448888748888748884888887444478888888888888888888 8888888888888888888888888888888888888888888888888888} end end end object LeftDock: TDock97 Left = 0 Top = 79 Width = 9 Height = 186 Position = dpLeft end object Memo: TMemo Left = 9 Top = 79 Width = 427 Height = 186 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] Lines.Strings = ( 'This is a demonstration of the toolbars, so most of the buttons ' + 'don'#39't do anything when clicked. Please see the file "Toolbar97 D' + 'ocumentation.htm" for information on using the Toolbar97 compone' + 'nts.' '' 'Some things to try:' '� You can drag and resize the toolbars. Dock them to any side of' + ' the form or leave them floating. Notice that if you dock the Ed' + 'it toolbar to the left or right side of the form, a button is us' + 'ed in place of the combo box (the source code shows how this was' + ' set up).' '� Multiple toolbars can lined up side-by-side or in rows.' '� Click the right button on a toolbar or dock to see its PopupMe' + 'nu.') ParentFont = False ScrollBars = ssVertical TabOrder = 0 WantTabs = True WordWrap = False end object RightDock: TDock97 Left = 436 Top = 79 Width = 9 Height = 186 Position = dpRight end object BottomDock: TDock97 Left = 0 Top = 265 Width = 445 Height = 9 PopupMenu = ToolbarPopupMenu Position = dpBottom end object StatusBar: TStatusBar Left = 0 Top = 274 Width = 445 Height = 20 Panels = < item Width = 128 end> SimplePanel = False end object SampleToolWindow: TToolWindow97 Left = 24 Top = 104 Caption = 'Tool Window' ClientAreaHeight = 68 ClientAreaWidth = 185 DockPos = 0 MinClientHeight = 68 MinClientWidth = 128 PopupMenu = ToolbarPopupMenu TabOrder = 6 Visible = False OnVisibleChanged = SampleToolWindowVisibleChanged object ListBox: TListBox Left = 0 Top = 0 Width = 104 Height = 68 Align = alClient ItemHeight = 13 TabOrder = 0 OnClick = ListBoxClick end object Panel1: TPanel Left = 104 Top = 0 Width = 81 Height = 68 Align = alRight BevelOuter = bvNone TabOrder = 1 object AddButton: TButton Left = 8 Top = 8 Width = 65 Height = 23 Caption = '&Add' TabOrder = 0 OnClick = AddButtonClick end object DeleteButton: TButton Left = 8 Top = 38 Width = 65 Height = 23 Caption = '&Delete' Enabled = False TabOrder = 1 OnClick = DeleteButtonClick end end end object ToolbarPopupMenu: TPopupMenu OnPopup = ToolbarPopupMenuPopup Left = 384 Top = 64 object TPMain: TMenuItem Caption = '&Main' Checked = True OnClick = VTMainClick end object TPEdit: TMenuItem Caption = '&Edit' Checked = True OnClick = VTEditClick end object TPSample: TMenuItem Caption = '&Sample' Checked = True OnClick = VTSampleClick end end object MainMenu: TMainMenu Left = 352 Top = 64 object FMenu: TMenuItem Caption = '&File' object FExit: TMenuItem Caption = 'E&xit' OnClick = FExitClick end end object VMenu: TMenuItem Caption = '&View' OnClick = VMenuClick object VToolbars: TMenuItem Caption = '&Toolbars' object VTMain: TMenuItem Caption = '&Main' OnClick = VTMainClick end object VTEdit: TMenuItem Caption = '&Edit' OnClick = VTEditClick end object VTSample: TMenuItem Caption = '&Sample' OnClick = VTSampleClick end end object VStatusBar: TMenuItem Caption = '&Status Bar' OnClick = VStatusBarClick end end end object DropPopupMenu: TPopupMenu Left = 320 Top = 64 object Sample1: TMenuItem Caption = 'Sample' end object dropdown1: TMenuItem Caption = 'drop-down' end object menu1: TMenuItem Caption = 'menu' end end end